home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / versa11.arc / VERSA.CMD < prev    next >
OS/2 REXX Batch file  |  1987-05-23  |  13KB  |  795 lines
  1. ;PC Pursuit: VERSAdial, Version 1.1, by Allen Brunson, David Rhoten, and Gizmo
  2. ;Copyright (C) 1987, Allen Brunson
  3. RE_ENTRY:
  4. SWIT S9
  5. CASE"_NULL"
  6. GOTO BEGIN
  7. ENDC
  8. CASE"D"
  9. GOTO PCPOFF
  10. ENDC
  11. CASE"E"
  12. CLEA
  13. GOTO VERSAOFF
  14. ENDC
  15. CASE"G"
  16. FIND S0"3"
  17. IF FOUN
  18. GOSU DISC3
  19. ENDI
  20. GOTO CITYCHOI
  21. ENDC
  22. CASE"ACTIVE"
  23. GOTO GOLEVEL
  24. ENDC
  25. DEFA
  26. CLEA
  27. LOCA 11,20
  28. MESS"Parameter error from menu command file."
  29. LOCA 14,0
  30. GOTO VERSAOFF
  31. ENDC
  32. ENDS
  33. BEGIN:
  34. SET CR_I CR
  35. SET CR_O CR
  36. SET PARI EVEN
  37. SET DATA 7
  38. SET DUPL FULL
  39. SET BAUD 1200    ;Baud rate of YOUR modem
  40. ASSI S6"ON"      ;Extended menus (ON or OFF)
  41. MLOA"VERSA.KEY"
  42. GOTO TITLE
  43. CITYREDI:
  44. CLEA
  45. TRAN"C DIAL"
  46. TRAN S1
  47. MACR 8
  48. MACR 9
  49. WAIT"="
  50. MACR 0
  51. RGET S8
  52. RGET S8
  53. RGET S8
  54. FIND S8"CONNECTED"
  55. IF FOUN
  56. MESS"^G"
  57. GOTO PORTSET
  58. ENDI
  59. GOTO CITYREDI
  60. BBSREDIA:
  61. CLEA
  62. LABEL1:
  63. TRAN"A/!"
  64. RGET S8 80 40
  65. RGET S8
  66. FIND S8"CONNECT"
  67. IF FOUN
  68. GOTO BBSCONNE
  69. ENDI
  70. GOTO LABEL1
  71. BBSCONNE:
  72. SET PARI NONE
  73. SET DATA 8
  74. ALAR 2
  75. SWIT S7
  76. CASE"_NULL"
  77. MLOA"PROCOMM.KEY"
  78. EXIT
  79. ENDC
  80. DEFA
  81. EXEC S7
  82. ENDC
  83. ENDS
  84. PCPOFF:
  85. CLEA
  86. IF NOT CONN
  87. GOTO VERSAOFF
  88. ENDI
  89. SWIT S0
  90. CASE"1"
  91. GOTO VERSAOFF
  92. ENDC
  93. CASE"2"
  94. GOTO DISC2
  95. ENDC
  96. CASE"3"
  97. GOSU DISC3
  98. GOTO DISC2
  99. ENDC
  100. ENDS
  101. DISC3:
  102. CLEA
  103. MESS"Disconnecting from remote city . . ."
  104. BREA 10
  105. WAIT"@"5
  106. TRAN"!"
  107. IF NOT WAIT
  108. TRAN"!@!"
  109. ENDI
  110. WAIT"@"5
  111. TRAN"D!"
  112. WAIT"@"5
  113. MESS"^M^J^M^J"
  114. PAUS 1
  115. ASSI S0"2"
  116. RETU
  117. DISC2:
  118. MESS"Disconnecting from local Telenet . . .^M^J"
  119. TRAN"HANGUP!"
  120. PAUS 1
  121. MESS"^M^J"
  122. VERSAOFF:
  123. MLOA"PROCOMM.KEY"
  124. MESS"VERSA finished."
  125. EXIT
  126. NETREDIA:
  127. CLEA
  128. TRAN"C PURSUIT,"
  129. MACR 9
  130. WAIT"="
  131. MACR 0
  132. RGET S8
  133. RGET S8
  134. RGET S8
  135. FIND S8"CONNECTED"
  136. IF FOUN
  137. GOTO BBSCONNE
  138. ENDI
  139. GOTO NETREDIA
  140. NETDIAL:
  141. TRAN"C PURSUIT,"
  142. MACR 9
  143. WAIT"="
  144. MACR 0
  145. RGET S8
  146. RGET S8
  147. RGET S8
  148. FIND S8"CONNECTED"
  149. IF FOUN
  150. GOTO BBSCONNE
  151. ENDI
  152. CLEA
  153. LOCA 11,16
  154. MESS"The Net Exchange is busy.  Begin redial <Y/N>?"
  155. LABEL2:
  156. LOCA 11,63
  157. GET S9 1
  158. SWIT S9
  159. CASE"Y"
  160. GOTO NETREDIA
  161. ENDC
  162. CASE"N"
  163. GOTO CITYCHOI
  164. ENDC
  165. CASE"D"
  166. GOTO PCPOFF
  167. ENDC
  168. CASE"E"
  169. CLEA
  170. GOTO VERSAOFF
  171. ENDC
  172. DEFA
  173. MESS"^G"
  174. LOCA 11,63
  175. MESS" "
  176. GOTO LABEL2
  177. ENDC
  178. ENDS
  179. TITLE:
  180. CLEA
  181. LOCA 2,0
  182. MESS"                       ╔═══════════════════════════════╗"
  183. MESS"                       ║                               ║"
  184. MESS"                       ║     PC Pursuit: VERSAdial     ║"
  185. MESS"                       ║   Written by Allen Brunson,   ║"
  186. MESS"                       ║    David Rhoten, and Gizmo    ║"
  187. MESS"                       ║                               ║"
  188. MESS"                       ║       `"D`" - Disconnect        ║"
  189. MESS"                       ║       `"E`" - Exit VERSA        ║"
  190. MESS"                       ║                               ║"
  191. MESS"                       ╚═══════════════════════════════╝"
  192. LOCA 14,0
  193. MESS"Determining PC Pursuit level . . .^M^J"
  194. IF NOT CONN
  195. MESS"Modem is currently offline."
  196. ASSI S0"1"
  197. PAUS 1
  198. GOTO CITYCHOI
  199. ENDI
  200. TRAN"ATZ!"
  201. RGET S8 80 3
  202. RGET S8 80 3
  203. RGET S9 80 3
  204. FIND S8"?"
  205. IF FOUN
  206. MESS"^M^JLocal Telenet level determined."
  207. ASSI S0"2"
  208. PAUS 1
  209. GOTO CITYCHOI
  210. ENDI
  211. FIND S9"OK"
  212. IF FOUN
  213. MESS"^M^JRemote city level determined."
  214. ASSI S0"3"
  215. PAUS 1
  216. GOTO MENUCHEC
  217. ENDI
  218. FIND S9"MANUAL ANSWER"
  219. IF FOUN
  220. TRAN"!"
  221. PAUS 1
  222. TRAN"!"
  223. WAIT"*"10
  224. TRAN"I!"
  225. WAIT"IDLE"
  226. TRAN"ATZ!"
  227. WAIT"OK"
  228. MESS"^M^JRemote city level determined."
  229. ASSI S0"3"
  230. PAUS 1
  231. GOTO MENUCHEC
  232. ENDI
  233. MESS"^M^JUnable to determine level.^M^J"
  234. GOTO VERSAOFF
  235. CITYCHOI:
  236. FIND S6"OFF"
  237. IF NOT FOUN
  238. GOTO CITYMENU
  239. ENDI
  240. CLEA
  241. LOCA 10,26
  242. MESS"Enter desired area code:"
  243. LOCA 12,29
  244. MESS"Options: 1-26, M"
  245. LOCA 10,51
  246. GET S9 3
  247. LABEL3:
  248. SWIT S9
  249. CASE"1"
  250. ASSI S1"404"
  251. ENDC
  252. CASE"2"
  253. ASSI S1"617"
  254. ENDC
  255. CASE"3"
  256. ASSI S1"216"
  257. ENDC
  258. CASE"4"
  259. ASSI S1"313"
  260. ENDC
  261. CASE"5"
  262. ASSI S1"305"
  263. ENDC
  264. CASE"6"                ;Net Exchange handling
  265. ASSI S1"NET"
  266. ;ASSI S7"COMMAND.VER"
  267. GOTO GOLEVEL
  268. ENDC
  269. CASE"7"
  270. ASSI S1"201"
  271. ENDC
  272. CASE"8"
  273. ASSI S1"212"
  274. ENDC
  275. CASE"9"
  276. ASSI S1"215"
  277. ENDC
  278. CASE"10"
  279. ASSI S1"919"
  280. ENDC
  281. CASE"11"
  282. ASSI S1"813"
  283. ENDC
  284. CASE"12"
  285. ASSI S1"202"
  286. ENDC
  287. CASE"13"
  288. ASSI S1"312"
  289. ENDC
  290. CASE"14"
  291. ASSI S1"214"
  292. ENDC
  293. CASE"15"
  294. ASSI S1"713"
  295. ENDC
  296. CASE"16"
  297. ASSI S1"414"
  298. ENDC
  299. CASE"17"
  300. ASSI S1"612"
  301. ENDC
  302. CASE"18"
  303. ASSI S1"303"
  304. ENDC
  305. CASE"19"
  306. ASSI S1"602"
  307. ENDC
  308. CASE"20"
  309. ASSI S1"801"
  310. ENDC
  311. CASE"21"
  312. ASSI S1"818"
  313. ENDC
  314. CASE"22"
  315. ASSI S1"213"
  316. ENDC
  317. CASE"23"
  318. ASSI S1"503"
  319. ENDC
  320. CASE"24"
  321. ASSI S1"415"
  322. ENDC
  323. CASE"25"
  324. ASSI S1"408"
  325. ENDC
  326. CASE"26"
  327. ASSI S1"206"
  328. ENDC
  329. CASE"D"
  330. GOTO PCPOFF
  331. ENDC
  332. CASE"E"
  333. CLEA
  334. GOTO VERSAOFF
  335. ENDC
  336. CASE"M"
  337. GOTO CITYMENU
  338. ENDC
  339. DEFA
  340. ASSI S1 S9
  341. ENDC
  342. ENDS
  343. MENUCHEC:
  344. FIND S6"OFF"
  345. IF FOUN
  346. GOTO BBSCHOIC
  347. ENDI
  348. SWIT S1
  349. CASE"404"
  350. EXEC"VERSA1.MNU"
  351. ENDC
  352. CASE"617"
  353. EXEC"VERSA1.MNU"
  354. ENDC
  355. CASE"216"
  356. EXEC"VERSA1.MNU"
  357. ENDC
  358. CASE"313"
  359. EXEC"VERSA1.MNU"
  360. ENDC
  361. CASE"305"
  362. EXEC"VERSA1.MNU"
  363. ENDC
  364. CASE"201"
  365. EXEC"VERSA1.MNU"
  366. ENDC
  367. CASE"212"
  368. EXEC"VERSA2.MNU"
  369. ENDC
  370. CASE"215"
  371. EXEC"VERSA2.MNU"
  372. ENDC
  373. CASE"919"
  374. EXEC"VERSA2.MNU"
  375. ENDC
  376. CASE"813"
  377. EXEC"VERSA2.MNU"
  378. ENDC
  379. CASE"202"
  380. EXEC"VERSA2.MNU"
  381. ENDC
  382. CASE"312"
  383. EXEC"VERSA2.MNU"
  384. ENDC
  385. CASE"214"
  386. EXEC"VERSA3.MNU"
  387. ENDC
  388. CASE"713"
  389. EXEC"VERSA3.MNU"
  390. ENDC
  391. CASE"414"
  392. EXEC"VERSA3.MNU"
  393. ENDC
  394. CASE"612"
  395. EXEC"VERSA3.MNU"
  396. ENDC
  397. CASE"303"
  398. EXEC"VERSA3.MNU"
  399. ENDC
  400. CASE"602"
  401. EXEC"VERSA3.MNU"
  402. ENDC
  403. CASE"801"
  404. EXEC"VERSA4.MNU"
  405. ENDC
  406. CASE"818"
  407. EXEC"VERSA4.MNU"
  408. ENDC
  409. CASE"213"
  410. EXEC"VERSA4.MNU"
  411. ENDC
  412. CASE"503"
  413. EXEC"VERSA4.MNU"
  414. ENDC
  415. CASE"415"
  416. EXEC"VERSA4.MNU"
  417. ENDC
  418. CASE"408"
  419. EXEC"VERSA4.MNU"
  420. ENDC
  421. CASE"206"
  422. EXEC"VERSA4.MNU"
  423. ENDC
  424. CASE"_NULL"
  425. CLEA
  426. LOCA 11,18
  427. MESS"Enter area code, or <Return> if unknown:"
  428. LOCA 11,59
  429. GET S9 3
  430. SWIT S9
  431. CASE"_NULL"
  432. GOTO BBSMENU
  433. ENDC
  434. CASE"D"
  435. GOTO PCPOFF
  436. ENDC
  437. CASE"E"
  438. CLEA
  439. GOTO VERSAOFF
  440. ENDC
  441. DEFA
  442. ASSI S1 S9
  443. GOTO MENUCHEC
  444. ENDC
  445. ENDS
  446. ENDC
  447. ENDS
  448. BBSCHOIC:
  449. FIND S6"OFF"
  450. IF NOT FOUN
  451. GOTO BBSMENU
  452. ENDI
  453. CLEA
  454. LOCA 10,23
  455. MESS"Enter phone number of BBS:"
  456. LOCA 12,26
  457. MESS"Options: 1-20, G, M"
  458. LOCA 10,50
  459. GET S9 7
  460. LABEL4:
  461. SWIT S9
  462. CASE"1"                   ;Beginning of All Cities BBS Directory
  463. ASSI S2"4330062"
  464. ;ASSI S7"COMMAND.VER"
  465. ENDC
  466. CASE"2"
  467. ASSI S2"2373750"
  468. ;ASSI S7"COMMAND.VER"
  469. ENDC
  470. CASE"3"
  471. ASSI S2"9942944"
  472. ;ASSI S7"COMMAND.VER"
  473. ENDC
  474. CASE"4"
  475. ASSI S2"3496576"
  476. ;ASSI S7"COMMAND.VER"
  477. ENDC
  478. CASE"5"
  479. ASSI S2"9645160"
  480. ;ASSI S7"COMMAND.VER"
  481. ENDC
  482. CASE"6"
  483. ASSI S2"7814723"
  484. ;ASSI S7"COMMAND.VER"
  485. ENDC
  486. CASE"7"
  487. ASSI S2"17184571752"
  488. ;ASSI S7"COMMAND.VER"
  489. ENDC
  490. CASE"8"
  491. ASSI S2"5243984"
  492. ;ASSI S7"COMMAND.VER"
  493. ENDC
  494. CASE"9"
  495. ASSI S2"8482106"
  496. ;ASSI S7"COMMAND.VER"
  497. ENDC
  498. CASE"10"
  499. ASSI S2"4311194"
  500. ;ASSI S7"COMMAND.VER"
  501. ENDC
  502. CASE"11"
  503. ASSI S2"6893561"
  504. ;ASSI S7"COMMAND.VER"
  505. ENDC
  506. CASE"12"
  507. ASSI S2"6960360"
  508. ;ASSI S7"COMMAND.VER"
  509. ENDC
  510. CASE"13"
  511. ASSI S2"3813320"
  512. ;ASSI S7"COMMAND.VER"
  513. ENDC
  514. CASE"14"
  515. ASSI S2"5767285"
  516. ;ASSI S7"COMMAND.VER"
  517. ENDC
  518. CASE"15"
  519. ASSI S2"9363058"
  520. ;ASSI S7"COMMAND.VER"
  521. ENDC
  522. CASE"16"
  523. ASSI S2"8824227"
  524. ;ASSI S7"COMMAND.VER"
  525. ENDC
  526. CASE"17"
  527. ASSI S2"7295377"
  528. ;ASSI S7"COMMAND.VER"
  529. ENDC
  530. CASE"18"
  531. ASSI S2"XXXXXXX"
  532. ;ASSI S7"COMMAND.VER"
  533. ENDC
  534. CASE"19"
  535. ASSI S2"XXXXXXX"
  536. ;ASSI S7"COMMAND.VER"
  537. ENDC
  538. CASE"20"
  539. ASSI S2"XXXXXXX"
  540. ;ASSI S7"COMMAND.VER"
  541. ENDC
  542. CASE"D"
  543. GOTO PCPOFF
  544. ENDC
  545. CASE"E"
  546. CLEA
  547. GOTO VERSAOFF
  548. ENDC
  549. CASE"G"
  550. FIND S0"3"
  551. IF FOUN
  552. GOSU DISC3
  553. ENDI
  554. GOTO CITYCHOI
  555. ENDC
  556. CASE"M"
  557. GOTO BBSMENU
  558. ENDC
  559. DEFA
  560. ASSI S2 S9
  561. ENDC
  562. ENDS
  563. GOLEVEL:
  564. SWIT S0
  565. CASE"1"
  566. GOTO LEVEL1
  567. ENDC
  568. CASE"2"
  569. CLEA
  570. GOTO LEVEL2
  571. ENDC
  572. CASE"3"
  573. CLEA
  574. GOTO LEVEL3
  575. ENDC
  576. ENDS
  577. LEVEL1:
  578. CLEA
  579. TRAN"AT S2=42 DT "
  580. MACR 7
  581. WAIT"CONNECT"20
  582. IF NOT WAIT
  583. HANG
  584. CLEA
  585. LOCA 11,19
  586. MESS"Local Telenet did not connect.  Redialing."
  587. LOCA 0,0
  588. PAUS 1
  589. GOTO LEVEL1
  590. ENDI
  591. PAUS 2
  592. TRAN"^M^M"
  593. WAIT"="
  594. TRAN"D1!"
  595. WAIT"@"
  596. LEVEL2:
  597. IF NOT CONN
  598. CLEA
  599. LOCA 11,7
  600. MESS"Telenet has disconnected.  Dialing will begin at the local level."
  601. LOCA 0,0
  602. PAUS 1
  603. ASSI S0"1"
  604. GOTO GOLEVEL
  605. ENDI
  606. ASSI S0"2"
  607. FIND S1"NET"
  608. IF FOUN
  609. GOTO NETDIAL
  610. ENDI
  611. TRAN"C DIAL"
  612. TRAN S1
  613. MACR 8
  614. MACR 9
  615. WAIT"="
  616. MACR 0
  617. RGET S8
  618. RGET S8
  619. RGET S8
  620. FIND S8"CONNECTED"
  621. IF FOUN
  622. MESS"^G"
  623. GOTO PORTSET
  624. ENDI
  625. CLEA
  626. LOCA 11,11
  627. MESS"No modems available in remote city.  Begin redial <Y/N>?"
  628. LABEL5:
  629. LOCA 11,68
  630. GET S9 1
  631. SWIT S9
  632. CASE"Y"
  633. GOTO CITYREDI
  634. ENDC
  635. CASE"N"
  636. GOTO CITYCHOI
  637. ENDC
  638. CASE"D"
  639. GOTO PCPOFF
  640. ENDC
  641. CASE"E"
  642. CLEA
  643. GOTO VERSAOFF
  644. ENDC
  645. DEFA
  646. MESS"^G"
  647. LOCA 11,68
  648. MESS" "
  649. GOTO LABEL5
  650. ENDC
  651. ENDS
  652. PORTSET:
  653. TRAN"!@!"
  654. WAIT"@"
  655. TRAN"SET? 1:0,4:2,7:8!"
  656. WAIT"@"3
  657. TRAN"CONT!"
  658. LEVEL3:
  659. IF NOT CONN
  660. CLEA
  661. SWIT S1
  662. CASE"_NULL"
  663. LOCA 11,16
  664. MESS"Telenet has disconnected.  Area code is unknown."
  665. LOCA 0,0
  666. PAUS 1
  667. ASSI S0"1"
  668. GOTO CITYCHOI
  669. ENDC
  670. DEFA
  671. LOCA 11,7
  672. MESS"Telenet has disconnected.  Dialing will begin at the local level."
  673. LOCA 0,0
  674. PAUS 1
  675. ASSI S0"1"
  676. GOTO LEVEL1
  677. ENDC
  678. ENDS
  679. ENDI
  680. ASSI S0"3"
  681. TRAN"ATZ!"
  682. RGET S8 80 3
  683. RGET S8 80 3
  684. RGET S8 80 3
  685. FIND S8"OK"
  686. IF NOT FOUN
  687. PAUS 1
  688. TRAN"!"
  689. PAUS 1
  690. TRAN"!"
  691. WAIT"*"5
  692. TRAN"I!"
  693. WAIT"IDLE"5
  694. TRAN"ATZ!"
  695. WAIT"OK"
  696. ENDI
  697. TRAN"ATDT "
  698. TRAN S2
  699. TRAN"!"
  700. RGET S8
  701. RGET S8 80 50
  702. RGET S8
  703. FIND S8"CONNECT"
  704. IF FOUN
  705. GOTO BBSCONNE
  706. ENDI
  707. CLEA
  708. LOCA 11,20
  709. MESS"The BBS is busy.  Begin redial <Y/N>?"
  710. LABEL6:
  711. LOCA 11,58
  712. GET S9 1
  713. SWIT S9
  714. CASE"Y"
  715. GOTO BBSREDIA
  716. ENDC
  717. CASE"N"
  718. GOTO MENUCHEC
  719. ENDC
  720. CASE"D"
  721. GOTO PCPOFF
  722. ENDC
  723. CASE"E"
  724. CLEA
  725. GOTO VERSAOFF
  726. ENDC
  727. DEFA
  728. MESS"^G"
  729. LOCA 11,58
  730. MESS" "
  731. GOTO LABEL6
  732. ENDC
  733. ENDS
  734. CITYMENU:
  735. CLEA
  736. MESS"       ╒════════════════════╡ PC Pursuit City Menu ╞════════════════════╕"
  737. MESS"       │                                                                │"
  738. MESS"       │  E < 1> Atlanta         (404)     C <14> Dallas         (214)  │"
  739. MESS"       │  E < 2> Boston          (617)     C <15> Houston        (713)  │"
  740. MESS"       │  E < 3> Cleveland       (216)     C <16> Milwaukee      (414)  │"
  741. MESS"       │  E < 4> Detroit         (313)     M <17> Minneapolis    (612)  │"
  742. MESS"       │  E < 5> Miami           (305)     M <18> Denver         (303)  │"
  743. MESS"       │  E < 6> Net Exchange    (n/a)     M <19> Phoenix        (602)  │"
  744. MESS"       │  E < 7> Newark          (201)     P <20> Salt Lake City (801)  │"
  745. MESS"       │  E < 8> New York        (212)     P <21> Glendale       (818)  │"
  746. MESS"       │  E < 9> Philadelphia    (215)     P <22> Los Angeles    (213)  │"
  747. MESS"       │  E <10> Res. Tri. Park  (919)     P <23> Portland       (503)  │"
  748. MESS"       │  E <11> Tampa           (813)     P <24> San Francisco  (415)  │"
  749. MESS"       │  E <12> Washington D.C. (202)     P <25> San Jose       (408)  │"
  750. MESS"       │  C <13> Chicago         (312)     P <26> Seattle        (206)  │"
  751. MESS"       │                                                                │"
  752. MESS"       │              E - Eastern Time    C - Central Time              │"
  753. MESS"       │              M - Mountain Time   P - Pacific Time              │"
  754. MESS"       │                                                                │"
  755. MESS"       ├────────────────────────────────────────────────────────────────┤"
  756. MESS"       │         Enter area code or number of desired city:             │"
  757. MESS"       ╘════════════════════════════════════════════════════════════════╛"
  758. LOCA 20,60
  759. GET S9 3
  760. GOTO LABEL3
  761. BBSMENU:
  762. CLEA
  763. LOCA 2,0
  764. MESS"     ╒═══════════════════╡ All Cities  BBS Directory ╞═══════════════════╕"
  765. MESS"     │                                                                   │"
  766. MESS"     │  < 1> Atlanta PC UG       (404)   <11> The Net Exchange    (703)  │"
  767. MESS"     │  < 2> Boston Comp. Soc.   (617)   <12> PC Magazine IRS     (212)  │"
  768. MESS"     │  < 3> Vernon Buerg's BBS  (415)   <13> PC Ohio             (216)  │"
  769. MESS"     │  < 4> Charisma            (415)   <14> PC Tech Journal BBS (202)  │"
  770. MESS"     │  < 5> Exec PC             (414)   <15> Phoenix Techline    (612)  │"
  771. MESS"     │  < 6> Friends!!            (212)   <16> Plantz's Superboard (312)  │"
  772. MESS"     │  < 7> Friends, Too!!       (212)   <17> Sparta              (201)  │"
  773. MESS"     │  < 8> Gannett Help Screen (202)   <18>                     (   )  │"
  774. MESS"     │  < 9> Interconnect        (202)   <19>                     (   )  │"
  775. MESS"     │  <10> Invention Factory   (212)   <20>                     (   )  │"
  776. MESS"     │                                                                   │"
  777. MESS"     │                      Selected area code:                          │"
  778. MESS"     │                    <G>o back to city selection                    │"
  779. MESS"     │                                                                   │"
  780. MESS"     ├───────────────────────────────────────────────────────────────────┤"
  781. MESS"     │      Enter selection 1-20 or other BBS phone number:              │"
  782. MESS"     ╘═══════════════════════════════════════════════════════════════════╛"
  783. LOCA 15,48
  784. SWIT S1
  785. CASE"_NULL"
  786. MESS"???"
  787. ENDC
  788. DEFA
  789. MESS S1
  790. ENDC
  791. ENDS
  792. LOCA 19,60
  793. GET S9 7
  794. GOTO LABEL4
  795.